home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 14 / hacker14.iso / programacao / visual / perl.exe / {app} / Webroot / cgi-bin / test-form.cgi < prev    next >
Encoding:
Text File  |  2003-01-11  |  319 b   |  19 lines
  1. #!perl.exe
  2.  
  3. use strict;
  4. use CGI qw(:standard);
  5.  
  6. print header;
  7.  
  8. print "<hr>";
  9. print "The name was ",param('TextBox'),"<BR>";
  10. print "The description was ",param('ScrollBox'),"<BR>";
  11. print "<hr>";
  12.  
  13. my $key;
  14. foreach $key (sort keys %ENV) {
  15.   print "<b>$key</b> = " . $ENV{$key} . "<br>";
  16. }
  17.  
  18. print "<hr>";
  19.